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1.  OVERVIEW  OF  SILICON  GRAPHICS/VAX/CRAY  AND  NASTRAN  INTERFACE 


The  Air  Force  Weapons  Laboratory ^tAFtfL)  has  access  to  both  the  NASTRAN  and 
PATRAN  software  systems  for  structural  analysis  investigations:  however,  these 
two  codes  are  resident  on  separate  computer  systems  at  AFWL.  NASTRAN  is  used 
to  perform  the  bulk  of  large  structural  analysis  research  and  is  resident  on 
the  CRAY-IS.  PATRAN  is  installed  on  a  Silicon  Graphics  and  allows  depictions 
and  animation  of  modal  analysis  results.  The  two  software  packages  are 
complementary  in  function,  and  communication  between  them  can  be  achieved 
through  the  GATEWAY  facility.  The  GATEWAY  links  the  AFWL04  VAX,  the  Silicon 
Graphics  IRIS,  and  the  CRAY  through  a  common  network  protocol. 


r 

1 

'"This  document  describes  software  resident  on  the  VAX  and  CRAY  computer 
systems  which  allows  PATRAN  animation  of  NASTRAN  calculated  modal  shapes. 
This  section  contains  general  information  which  should  be  reviewed  by  all 
potential  users.  Section  2  outlines  the  step  by  step  implementation  of 
NASTRAN  calculation  and  PATRAN  animation.  This  approach  is  designated 
VAX/CRAY/VAX  processing.  The  VAX/CRAY/VAX  approach  is  appropriate  regardless 
of  whether  the  NASTRAN  model  was  created  on  the  Silicon  Graphics  using  PATRAN 
or  created  on  the  VAX  using  an  editor.  Section  3  provides  important  notes  on 
the  use  of  the  existing  NASTRAN  DMAP  alter  library,  and  Section  4  is  an 


(1)  A  Silicon  Graphics  IRIS  User  account, 

(2)  An  AFVL04  VAX  User  account  with  GATEWAY  privileges, 

(3)  An  AFVL  CRAY  User  account,  and 


(4)  access  to  the  following  files: 


on  the  VAX: 


MODAL.COM, 


M0DAL.EXE 


on  the  CRAY: 


NAS VAX, 


NASGO, 


NASG02, 


NASJOBl, 


NASJ0B2, 


NASPRGEX, 


4 


MSET, 


and  NASALTR 

It  is  strongly  recommended  that  the  analyst  acquaint  himself/herself  vith 
the  operating  systems  of  the  VAX,  the  Silicon  Graphics,  and  CRAY.  Many 
unusual  error  conditions  can  occur  on  all  machines,  and  these  conditions  are 
beyond  the  scope  of  the  present  document.* 


*For  additional  help  on  the 
844-8031.  Additional  help  on 
the  Silicon  Graphics  User 
505/247-8371. 


VAX  or  the  CRAY,  contact  the  consulting  group  at 
the  Silicon  Graphics  may  be  obtained  from  either 
Hotline  (1-800-252-0222)  or  by  contacting  ATA  at 
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2.  SUMMARY  TABLE  FOR  NASTRAN  TO  PATRAN  VAX/CRAY/VAX  PROCESSING 


TABLE  I 

SUMMARY  OF  NASTRAN  TO  PATRAN 
VAX/CRAY/VAX  PROCESSING 

SG: 

Step  0:  Develop  NASTRAN  model 
Step  1:  Transfer  model  to  VAX 

VAX: 

Step  2:  Translate  model 

CRAY: 

Step  3:  Retrieve  model  and 
Run  NASTRAN 

Step  4:  Run  NASPAT 

VAX: 

Step  5:  Retrieve  results 

Step  6:  Transfer  file  from  VAX 
to  Silicon  Graphics 
IRIS 

SG; 

Step  7:  Translate  results 
Step  8:  Run  PATRAN 
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STEP  0:  (SG)  DEVELOP  TtlE  NASTRA.M  MODEL:  The  nnalyst  nay  ii^e  TA'^n,-;  oi; 

the  Silicon  Gcaphics  to  develop  a  NASTRAN  model.  Tlie  model  should  ho  iu 
upper  case  once  on  the  VAX;  during  transport  to  the  CRAY.  it  vill  h>; 
translated  to  lower  case.  Section  3  has  some  special  notes  on  NASTRAN  DMA? 
sequences . 

STEP  1:  (SG)  TRANSFER  MODEL  TO  VAX:  Using  a  file  transfer  routine  on  the 
Silicon  Graphics,  transfer  the  'PATRAN  developed'  NASTRAN  model  to  the  VAX. 

STEP  2:  (VAX)  TRANSLATE  MODEL:  The  NASTRAN  model  must  be  translated  into 
a  neutral  format  for  transfer  to  the  CRAY.  The  neutral  format  conversion  is 
performed  within  MODAL.COM  as  follows: 

S  @M0DAL  — Start  the  'Modal'  procedure. 

(model  file  name)  — Supply  the  file  name  of  the  NASTRAN  model. 

A  menu  of  options  vill  appear  on  the  screen. 

1  --Choose  option  1  to  translate  the  model  into  PATRAN 

format.  The  menu  should  re-appear 

2  — Clioose  option  2  to  translate  the  model  into  netitral 

format.  The  menu  should  re-appear. 

6  — Choose  option  6  to  exit. 

The  model  should  now  be  stored  under  CFS  and  we  are  ready  to  log  into  the 
CRAY.  The  user  may  either  log  onto  the  CRAY  directly  or  may  reach  the  CRAY 
via  the  GATEWAY.  These  instructions  assume  that  the  GATEWAY  will  be  used. 
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CONNECT 


— Initiate  CATEUAY  bridge  tc  the  CRAY. 

<CR>  — Hit  carriage  return  or  enter  user  id  if  different. 

<CR>  — Hit  carriage  return  or  enter  charge  code  if 

different. 

(CRAY  Password)  — Provide  correct  ICN  password. 

The  CRAY  should  now  respond  to  the  user. 

If  it  is  necessary  to  log  off  of  the  CRAY,  type  "“D"  (<C0NTR0L>D)  and 
(ontrol  will  be  returned  to  the  VAX. 

If  steps  0  through  2  have  been  completed,  and  the  user  has  logged  onto  the 
CRAY,  processing  may  continue  with  STEP  3. 

STEP  3:  (CRAY)  RETRIEVE  MODEL  AND  RUN  NASTRAN:  COSMOS  deck  'NASGO'  will 
retrieve  the  NASTRAN  model  file  from  CFS  storage  and  translate  it  into  lower 
case  CRAY  ASCII. 

mass  get  nasgo  — Retrieve  the  NASGO  COSMOS  deck  from  CFS. 

cosmos  i=nasgo  — Run  NASGO. 

(model  name)  — Supply  NASTRAN  model  name  (up  to  six  characters). 

The  NASTRAN  model  file  will  be  stored  both  in  local 
file  space  and  under  CFS. 

NASGO  will  present  a  current  list  of  default  NASTRAN  run  variables  and 
prompt  the  user  for  instructions .  The  new  user  should  type  "help"  for  a  list 
of  all  options. 
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set  --Select  an  item  by  item  update  of  curient  variable 

values  either  individually,  (e.g.,  "SET  1  1000000) 
or  all  variables.  The  user  should  be  sure  to  set 
item  7  (NASTRAN  dedk  name)  and  item  2  (user  CRAY 
account  number).  See  also  Section  3  of  this 
document . 

stop  — Accept  current  variable  values  and  proceed  witli 

NASTRAN  job  processing. 

If  NASGO  encounters  no  errors,  it  will  submit  a  job  to  run  NASTRAN  using 
the  specified  NASTRAN  model.  This  job  will  appear  in  the  CRAY  job  queue  as 
"J (model)"  where  (model)  is  the  name  of  the  NASTRAN  model  file.  The  user  may 
verify  that  this  job  is  in  the  queue  by  typing  the  CTSS  command  "status." 

When  the  NASTRAN  job  completes  successfully,  two  files  will  appear  in  tlie 
user's  local  file  space;  these  two  files  are  "P(MODEL)"  and  "NASG02."  The 
appearance  of  NASG02  in  local  file  space  indicates  that  the  user  may  proceed 
to  Step  4.  (MODEL)  is  the  name  of  the  NASTRAN  model  file. 

STEP  4;  (CRAY)  RUN  NASPAT:  The  COSMOS  deck  'NASG02'  submits  a  batch  job 
to  run  NASPAT  to  translate  NASTRAN  results  into  PATRAN  neutral  format.  It 
also  stores  these  PATRAN  neutral  results  under  CFS  for  eventual  transfer 
across  the  GATEWAY  to  the  VAX. 
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cosmos  l«nasgo2 


--Run  NASG02. 


(CRAY  user  number}  — Specify  the  valid  CRAY  User  ID  number. 

(job  time)  — Specify  the  maximum  NASPAT  job  time  in  minutes. 

NASG02  will  submit  a  job  labeled  "JNASPAT."  This  job  will  appear  on  the 
CRAY  job  queue  when  the  user  types  "status."  When  "JNASPAT"  has  finished,  a 
file  labeled  "NASDONE"  should  appear  in  local  file  space.  The  appearance  of 
this  file  indicates  that  CRAY  processing  is  now  complete  and  the  user  should 
return  to  the  VAX  to  run  PATRAN. 

*D  — Log  off  from  the  CRAY  (<Control>D) . 

STEP  5:  (VAX)  RETRIEVE  RESULTS:  The  neutral  format  PATRAN  results  file 
must  be  retrieved  from  CFS  storage  via  the  GATEWAY.  T\>is  is  accomplished  as 
follows:  If  the  user  has  not  activated  the  GATEWAY,  'NETON'  should  be 
e.xecuted  as  described  under  STEP  2. 

$  MASS  —Call  the  CFS  MASS  utility. 

(VAX  Password)  — Supply  the  correct  VMS  password. 

?  GET  NASPTDAT  — Request  MASS  to  retrieve  the  PATRAN  results  file. 

?  END  —Exit  from  MASS. 

The  neutral  format  PATRAN  results  file  should  now  be  under  tlu  name 
"NASPTDAT.;"  in  local  file  space. 

STEP  6:  (VAX)  TRANSFER  FILE  FROM  VAX  TO  SILICON  GRAPHICS:  Transfer  take 
the  file  NASPTDAT.;  to  the  silicon  graphics  for  PATRAN  execution. 
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STEP  7:  (SG)  TRANSLATE  RESULTS;  NASPAT  on  the  Silicon  Graphics  may  be 
used  to  process  the  neutral  format  PATRAN  results  file  brought  from  tlie  CRAY. 
The  file  is  translated  and  divided  into  individual  PATRAN  binary  results  files 
(one  for  each  mode).  These  files  are  the  individual  mode  results  to  be 
animated  by  PATRAN. 

STEP  8:  (SG)  RUN  PATRAN:  PATRAN  is  used  for  animation  of  the  mode  shapes 
calculated  by  NASTRAN.  Animation  requires  both  the  original  model  translated 
into  PATRAN  format  as  veil  as  the  modal  results  in  PATRAN  format  (Step  7). 


$  PATRAN 
GO 
1 
5 
2 

{PATRAN  model  name 
N 


— Start  PATRAN  execution. 

— Tell  PATRAN  to  get  going. 

— Select  new  data  file. 

— Select  neutral  data  mode. 

— Select  input  model. 

— Specify  neutral  model  file  name. 

— Neutral  input  IDs  should  not  be  offset. 


1 

1 

{PATRAN  result  file) 

5 

Y 

8 


— Proceed.  (Answer  "Y"  to  all  queries.) 

— Select  results  mode. 

— Select  external  data. 

— Select  deformed  shape. 

— Select  result  file  name.  Input  the  animation  file 
name  desired. 

— Animate  mode. 

— Type  "Y"  to  repeat  animation,  "N"  to  stop. 

—End. 
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5 


— End . 


6  — End . 


The  preceding  PATRAN  command  sequence  is  given  for  quick  reference  only. 
Consult  the  PATRAN  manual  for  all  command  options. 
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3.  EXAMPLES  AND  EXTRA  FEATURES 


NASTRAN  DMAP  INSTRUCTIONS: 

To  animate  any  mode  of  a  structural  model,  it  is  necessary  to  generate  a 
modal  displacement  file.  NASTRAN  provides  tfiis  capability  tiuougli  tlie  use  of 
DMAP  instructions.  DMAP  card  sequences  instruct  the  NASTRAN  processor  to 
calculate,  save,  or  manipulate  data  in  its  internal  data  arrays.  For  modal 
animation  purposes,  NASTRAN  must  be  instructed  to  save  modal  displacement 
information  for  each  requested  mode. 

USING  THE  CRAY  ALTER  LIBRARY,  'NASALTR:' 

A  library  of  standard  CRAY  DMAP  card  sequences  has  been  established  on  the 
CRAY.  This  library  is  named  'NASALTR'  and  contains  sequences  for  several 
analysis  modes.  The  CRAY  COSMOS  decks  described  in  this  document  access  the 
NASALTR  library  when  constructing  the  user's  NASTRAN  job.  This  utility  allov/s 
the  user  to  code  a  NASTRAN  deck  without  including  actual  DMAP  commands. 
Instead,  the  user  selects  the  proper  DMAP  sequence  from  the  NASALTR  library  at 
job  submit  time  and  the  COSMOS  deck  NASGO  writes  the  appropriate  DMAP  commands 
into  the  user's  model  immediately  preceding  the  '*cend'  card. 

VARNING;  The  user  must  either  choose  the  appropriate  alter  deck  from  the 
NASALTR  library  or  code  in  the  necessary  DMAP  commands.  If  the  DMAP  sequence 
is  not  included  when  the  job  is  submitted,  NASTRAN  will  run  without  producing 
modal  displacement  results. 


EXAMPLE: 


The  following  simple  example  should  he  studied  and  the  usot's  NASTR.Ai' 
decks  tailoied  accordingly.  NASTRAN  solution  sequence  3  combined  with  alter 
deck  'alter!'  produces  modal  displacement  results  which  may  be  animated  by 
PATRAN  on  the  VAX.  The  NASTRAN  executive  deck  for  model  'x'  has  been  written 
as 


*id  X 

*sol  3 

*cend 

When  the  COSMOS  deck  NASGOl  runs  on  the  CRAY,  the  user  sets  the  alter  deck 
name  (index  10)  to  "alterl"  and  the  alter  library  name  (index  3  to  "nasaltr." 
Before  the  actual  NASTRAN  job  is  submitted  to  the  CRAY  batch  queue,  it  is 
rewritten  to  include  the  specified  alter  as  follows: 

*id  X 
*sol  3 

$  MSA/NASTRAN  ALTER 
$  FOR  SOLUTION  3  (Normal  Modes) 

$  USE  ONLY  IF  DISPLACEMENTS  ARE  IN  GLOBAL  COORDINATES 
ALTER  450  $ 

0UTPUT2  0UGV1//-1/11V,N,Z  $ 

$  CEND 
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S  OISP  -  ALL 


*cend 


CONTENTS  OF  THE  NASALTER  LIBRARY: 


The  following  is  a  reference  library  of  the  contents  of  the  NASALTR 
NASTRAN  alter  deck  library  on  the  CRAY. 


-  alterl  - 

$  MSC/NASTRAN  ALTER 
$  FOR  SOLUTION  3  (Normal  Modes) 

$  USE  ONLY  IF  DISPLACEMENTS  ARE  IN  GLOBAL  COORDINATES 
ALTER  450  $ 

0UTPUT2  0UGV1//-1/11/V,N,Z  $ 

$  CEND 
$  DISP  =.  ALL 

-  alter2  - 

S  MSC/NASTRAN  ALTER 
$  FOR  SOLUTION  3  (Normal  Modes) 

$  FORM  THE  TRANSFORMATION  MATRIX  TRANSGB  TO 
S  TRANSFORM  DISPLACEMENTS  INTO  GLOBAL  RECTANGULAR  SYSTEM 
ALTER  450  $ 

MATMOD  CSTM,SIL,BGPDT,,, /TRANSGB, /5/ /-I  S 

MPYAD  TRANSGB,  UGV/UGVBASIC  $ 

SDR2  CASECC, , , , EQEXIN, , , , , LAMA, , UGVBASIC, , / 
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LAMA, ,UGVBASIC, ,/ 


, .OUGIVPAT, , ,/S0LTYPE/S,N,N0S0RT2/V,N, NOCOMP  S 
OUTPUT2  0UGV1PAT,0ES1//-1/11/V,N,2S 
$  CEND 

$  DISP  =1  ALL 
$  STRESS  -  ALL 


-  alter3  - 

$  MSC/NASTRAN  ALTER 
$  FOR  SOLUTION  5  (Buckling) 

S  USE  ONLY  IF  DISPLACEMENTS  ARE  IN  GLOBAL  COORDINATES 
ALTER  142  $ 

OUTPUT2  0PHIG//-1/11V,N,Z  $ 

$  CEND 
$  DISP  »  ALL 

- altei'4 - 

$  MSC/NASTRAN  ALTER 
$  FOR  SOLUTION  24  (Statics) 

$  USE  ONLY  IF  DISPLACEMENTS  ARE  IN  GLOBAL  COORDINATES 
ALTER  188  $ 

OUTPUT2  OUGV1,OES1X//-1/11/V,N,Z  $ 

$  CEND 

S  STRESS(VONM)  =  ALL 
$  DISP  =  ALL 
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alters 


S  MSC/NASTRAN  ALTER 

S  FOR  SOLUTION  24  (Statics)  -  Sliaiii  Energy  Recovery 
$  USE  ONLY  IF  DISPLACEMENTS  ARE  IN  GLOBAL  COORDINATES 
ALTER  190  $ 

OUTPUT2  0UGV1,0NRGY1,0ESIX//-1/11/V,N,Z  $ 

$  CEND 

$  ESE  =  ALL 

$  DISP  =  ALL 

$  STRESS  =  ALL 


-  alter6  - 

$  MSC/NASTRAN  ALTER 

S  FOR  SOLUTION  24  (Static)  -  Grid  Point  Force  Recovery 
S  USE  ONLY  IF  DISPLACEMENTS  ARE  IN  GLOBAL  COORDINATES 
ALTER  193  $ 

0UTPUT2  0UGV1,0GPFB1//-1/11/V,N,Z  $ 

$  CEND 

S  DISP  =  ALL 

$  GPFORCE  =  ALL 


-  alter?  - 

$  MSC/NASTRAN  ALTER 

$  FOR  SOLUTION  24  (Statics)  -  Element  Strain  Recovery 
$  USE  ONLY  IF  DISPLACEMENTS  ARE  IN  GLOBAL  COORDINATES 
ALTER  215  $ 
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0UTPUT2  0UGV1,0STR2//-1/11/V,N,Z  S 

$  CEND 

$  DISP  =  ALL 

$  STRAIN( FIBER, VONM)  =  ALL 

-  alters  - 

$  MSC/NASTRAM  ALTER 

$  FOR  SOLUTION  24  (Statics)  -  Local  Displacements  to  Global  System 
$  USE  ONLY  IF  DISPLACEMENTS  ARE  IN  GLOBAL  COORDINATES 
$  FORM  THE  TRANSFORMATION  MATRIX  TRANSGB  TO 
$  TRANSFORM  DISPLACEMENTS  INTO  GLOBAL  RECTANGULAR  SYSTEM 
ALTER  187  $ 

MATMOD  CSTH.SIL.BGPDT,,, /TRANSGB, /5//-1  $ 

MPYAD  TRANSGB, UGV,/UGVBASIC  $ 

SDR2  CASECC , , , , EQEXIN ,,,,,,, UGVBASIC , , / 

, ,0UG1VPAT, ,, /STATICS/S, N,NOSORT2/V,N, NOCOMP  S 
OUTPUT2  0UGV1PAT,0ES1X//-1/11/V,N,ZS 

$  CEND 

$  DISP  =  ALL 

$  STRESS  =  ALL 

-  alter9  - 

$  MSC/NASTRAN  VERSION  63  ALTER 
$  FOR  SOLUTION  27  (Direct  Transient  Analysis) 

$  USE  ONLY  IF  DISPLACEMENTS  ARE  IN  GLOBAL  COORDINATES 
ALTER  1  $ 


19 


0UTPUT2 

ALTER 

output: 

$  CEND 
$  DISP 
$  STRESS 


, , , .//C,N,-1/C,N,11/V,N,Z  S 
4A9  $ 

0UGV1,0ES1//C,N,0/C,N,11/V.N,ZS 

=  ALL 
=  ALL 


-  alterlO  - 

$  MSC/NASTRAN  VERSION  63  ALTER 
$  FOR  SOLUTION  27  (Direct  Transient  Analysis) 


ALTER 

1  $ 

0UTPUT2 

, , , ,//C,N,-l/C,N,ll/V,N,Z  S 

ALTER 

449  $ 

MATMOD 

CSTM,SIL,BGPDT, ,,/TRANSGB,/5//-l 

S 

MPYAD 

TRANSGB.UGV./UGVBASIC  $ 

SDR2 

CASEXX, , , ,EQEXIN, , , , , , .UGVBASIC, 

,/ 

, .OUGIVPAT, , ,/SOLTYPE/S,N,NOSORT2/V,N, NOCOMP  S 
OUTPUT2  0UGV1PAT,0ES1//C,N,0/C,N,11/V,N,Z$ 

$  CEND 
$  DISP  =  ALL 

S  STRESS  =  ALL 


-  alterll  - 

S  MSC/NASTRAN  ALTER 

$  FOR  SOLUTION  47  (Cyclic  Symmetry  -  Statics) 

$  USE  ONLY  IF  DISPLACEMENTS  ARE  IN  GLOBAL  COORDINATES 
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ALTER 


1  S 

0UTPUT2  . , . ,//C,N.-l/C.N.ll/V.N.Z  S 

ALTER  2G8  $ 

0UTPUT2  0UGVl,0ESlX//0/ll/V,N,ZS 

$  CEND 
$  DISP  =  ALL 

$  STRESS  =  ALL 

-  alterlZ  - 

$  MSC/NASTRAN  ALTER 

$  FOR  SOLUTION  47  (Cyclic  Symmetry  -  Statics) 

$  FORM  THE  TRANSFORMATION  MATRIX  TRANSGB  TO 
$  TRANSFORM  DISPLACEMENTS  INTO  GLOBAL  RECTANGULAR  COORDINATES 
ALTER  1  $ 

OUTPUT2  , , , ,//C,N,-l/C,N,ll/V,N,2  $ 

ALTER  268  $ 

MATMOD  CSTM,SIL,BGPDT, ,, /TRANSGB, /5//-1  $ 

MPYAD  TRANSGB, FUGV./UGVBASIC  S 

SDR2  CASEBK, , , ,EQEXIN, , , , , , ,UGVBASIC, ,/ 

, ,0UGV1PAT, , ,/C,N, STATICS/S, N,NOSORT2/V,N, NOCOMP  S 
OUTPUT2  OUGVlPAT,OESlX//0/ll/V,N,Z$ 

$  CEND 

S  DISP  =  ALL 

$  STRESS  =  ALL 

-  alterl3  - 

$  MSC/NASTRAN  ALTER 
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s  FOR  SOLUTION  61  ( Sup«relem«n t  Statics) 

S  USE  ONLY  IF  DISPLACEMENTS  ARE  IN  GLOBAL  COORDINATF.S 
ALTER  1  $ 

OUTPUT2  , , , ,//C,N,-l/C,N,ll/V,N,Z  S 

ALTER  649  $  (FOR  NASTRAN  VERSION  64,  USE  ALTER  664) 

OUTPUT2  OUGV1,OES1//0/11/V,N,ZS 

$  CEND 

S  DISP  =  ALL 

$  STRESS  »  ALL 

-  alterl4  - 

$  MSC/NASTRAN  ALTER 

$  FOR  SOLUTION  64  (Geometric  Nonlinear) 

$  USE  ONLY  IF  DISPLACEMENTS  ARE  IN  GLOBAL  COORDINATES 
ALTER  1  $ 

OUTPUT2  , , , ,//C,N,-l/C,N,ll/V,N,Z  $ 

ALTER  285  $ 

output:  OUGV1,OES1X//C,N,0/C,N,11/V,N,ZS 

S  CEND 

S  DISP  =  ALL 

S  STRESS  =  ALL 

-  alterlS  - 

$  MSC/NASTRAN  ALTER 

$  FOR  SOLUTION  64  (Geometric  Nonlinear)  -  Local  Displacements 
Global  System 

$  FORM  THE  TRANSFORMATION  MATRIX  TRANSGB  TO 
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$  TRANSFORM  DISPLACEMENTS  INTO  GLOBAL  RECTANGlfLAR  C''i(^RPT‘;ATr 
ALTER  1  S 

output:  , , , ,//c,n,-i/c.n.ii/v,n,z  $ 

ALTER  285  S 

MATMOD  FCSTMS,FSILS,FBGPDT, , ,/TRANSGB,/5//-l  S 

MPYAD  TRANSGB.FUGV./UGVBASIC  S 

SDR2  CASEXX, , , .FEQEXINS, , , , , , .UGVBASICS. J 

,  .OUGVIPAT, , ,/APP/S,N,NOSORT2/V,M, NOCOMP  $ 

OUTPUT2  0UGV1,0ES1X//C,N,0/C,N,11/V,N,2S 

$  CEND 

$  DISP  =  ALL 

$  STRESS  =  ALL 

-  alterlB  - 

S  MSC/NASTRAN  ALTER 

S  FOR  SOLUTION  66  (Material  Nonlinear) 

S  USE  ONLY  IF  DISPLACEMENTS  ARE  IN  GLOBAL  COORDINATES 
ALTER  1  $ 

OUTPUT2  , , , ,//C,N,-l/C,N,ll/V,N,Z  S 

ALTER  9AO  $  (FOR  NASTRAN  VERSION  64,  USE  ALTER  662) 

OUTPUT2  OUGVl,OESl//0/C,N,ll/V,N,Z$ 

$  CEND 

$  DISP  =  ALL 

S  STRESS  =  ALL 

-  alterl?  - 

$  MSC/NASTRAN  ALTER 
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$  FOR  SOLUTION  66  (Material  Nonlinear)  -  Local  Displacements 
Global  System 

$  FORM  THE  TRANSFORMATION  MATRIX  TRANSGB  TO 
$  TRANSFORM  DISPLACEMENTS  INTO  GLOBAL  RECTANGULAR  COORDINATES 
ALTER  1  $ 

OUTPUT2  , , , ,//C,N,-l/C,N,ll/V,N,Z  $ 

ALTER  940  $ 

MATMOD  CSTMS,SILS,BGPDTS, ,, /TRANSGB, /5//-1  $ 

MPYAD  TRANSGB, UGV,/UGVBASIC  $ 

SDR2  CASEDR, , , ,EQEXIN, , , , , PJl , , UGVBASIC, ,/ 

, ,0UGV1PAT, , ,/C,N, STATICS/S, N,N0S0RT2/V,N, NOCOMP  S 
0UTPUT2  OUGVIPAT, , ,/0ESLl//C,N,0/C,N, 11/V,N,ZS 

$  CEND 

$  DISP  =  ALL 

$  STRESS  =  ALL 

-  alterlS  - 

S  MSC/NASTRAN  ALTER 

$  FOR  SOLUTION  77  (Cyclic  Summetry  Buckling) 

$ 

S  PRE-STRESS  STATE 
ALTER  1  S 

0UTPUT2  , , , ,//C,N,-l/C,N. 11/V,N,Z  $ 

ALTER  136  $ 

MATMOD  CSTMS,SILS,BGPDT. ,, /TRANSGB, /5//-1  S 

MPYAD  TRANSGB, UGV, /UGVBASIC  $ 

SDR2  CASECC, , , ,EQEXIN. , , , , , ,PHIGBASIC, ./ 


24 


,  .OUGVirHIG.  ,  ,/SOr.TYPE/S.N.NO''  'RT:  V.  V.N(>C("'r  $ 
EQUIV  OBESI.OESIPAT/ADDPDA  $ 

OUTPUT2  OUGVlPHIG.OESlPAT/C,N,(.i/C.N.  1  1  V.N'.Z  $ 

$ 

$  CEND 

$  DISP  =  ALL 

$  STRESS  =  ALL 

-  alterl9  - 

$  MSC/NASTRAN  ALTER 

$  FOR  SOLUTION  89  (Superelement  Transient  Heat  Transfer) 
ALTER  1  $ 

OUTPUT2  , , , ,//C,N,-l/C,N,ll/V,N,Z  $ 

ALTER  252  $  (FOR  NASTRAN  VERSION  64,  USE  ALTER  966) 

OUTPUT2  OUGVl,OESl//On/V,N,Z$ 

$  CEND 

-  alter20  - 

S  - MSET - 

$  CSA  Engineering,  Inc. 

S 

$  Alter  for  MSC/NASTRAN  version  63.  SOL  ol 

S  Writes  strain  energies  on  OUTPUTZ  file  fo\  post-processing 
$  along  with  mass  info  in  0UTPUT4  format. 

$  UG,  Dec  85 
$  Rev  Mar  86  V65 

S  Rev  Apr  86  --  handlo  alternate  coord  sys  UG 
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S  Rev  May  86  --  more  DBFETCIIs  so  it  -oiks  ••ith  lestnr*  Vi 
S  Rev  Sep  86  --  PARAM.NOSEPOST 


$  Provide  file  assignments  for  units  11  and  12  as  follows  (VAX): 

$ 

$  S  ASSIGN  (directory ) job. OUS  FOROll  (strain  energy) 

$  $  ASSIGN  (directory (job. MAS  F0R012  (weight) 

$  $  ASSIGN  (UG.DMAP1CASECC.0U2  F0R015  (read  only) 

$ 

$  Unit  numbers  may  be  changed  by 
$ 

$  PARAM  ESEUNIT  xx  (default  11) 

$  PARAM  UTUNIT  xx  (default  12) 

$ 

$  PARAM  NOSEPOST  -1  will  skip  all  calculations  in  this  alter 

$ 

$  If  ESE=  is  included  in  the  Case  Control  deck,  then  strain  energies 
$  will  be  printed  in  the  usual  manner.  All  strain  energies  are 
writ  ten 

$  to  the  auxiliary  file  irrespective  of  any  ESE  request. 

$ 


S  This  alter  deals  only  with  tlie  residual  structure.  Upstream 
$  superelement  energies  are  not  considered. 

$ 

$  ALTER  1120  $  V65 

ALTER  1081  $  V63 

PARAM  //N0P/V,Y,N0SEr0ST=l  $ 
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COND 


NOSEPOST.NOSEPOST  $ 


$ 

$  Geneiate  grid  point  mass  vector 

$ 

DBFETCH  /MGG, , , ,/MODEL/O/O  $ 

DBFETCH  /BGPDTS,EQEXINS,CSTMS,,/0/0  $ 

DIAGONAL  HGG/MGGDIAGL  $ 

VECPLOT  , ,BGPDTS,EQEXINS,CSTMS, ,/DGX6T/-l//4  $ 

MATGEN  ,/PMASS/6/6/l/5  $ 

PARTN  DGX6T, ,PMASS/DGX1T, , ,/l  $ 

TRNSP  DGXIT/DGXI  $ 

MPYAD  MGG, DGXl, /MASS  $ 

PARAMR  //DIV/V,N,WTMASSI/l./V,Y,UTMASS  $ 

PARAMR  //COMPLEX//VTMASSI/0./V,N,UTMASSC  S 
ADD  MASS./WEIGHTL/VTMASSC  $ 

$ 

$  Generate  strain  energy  data  block 
$ 

INPUTT2  /DUMCASE, , , ,//15/  $ 

DBFETCH  /UGVS,KELM,KDICT,ECTS,GPECT/0/0  $ 

DBFETCH  /PG,QGS,SILS,GPLS,VELEM/0/0  $ 

GPFDR 

DUMCASE , UGVS , KELM , KDICT , ECTS , EQEXINS , GFECT , PG , QGS , BGPDTS , SI LS , 
CSTMS,VELEM/ONRGYl,0GPFBl/APPl/0.0  $ 

VECPLOT  VEIGHTL, BGPDTS, EQEXINS, CSTMS,CASECC,/yEIGHT/0/0/l  $ 
VECPLOT  MGGDIAGL, BGPDTS, EQEXINS, CSTMS,CASECC,/MGGDIAG/0/0/l  $ 
VECPLOT  UGVS, BGPDTS, EQEXINS, CSTMS,CASECC,/UGVSB/0/0/l  $ 
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DBFETCH  /UMA,,,,/0/0  S 

0UTPUT2  LAMA,ONRGYl,BGPDTS,GPLS,//0/V,Y,ESEUNIT=ll  S 
0UTPUT4  VEIGHT.HGGDIAG.UGVSB, ,//0/V, Y.VTUNIT^IZ  $ 
LABEL  NOSEPOST  $ 
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A.  EXAMPLE  OF  VAX/CRAY/VAX  PROCESSING 


Tlie  following  pages  repi'esent  a  log  of  an  actual  computer  session  which 
produced  animated  modal  results.  This  example  follows  the  outline  of 
VAX/CRAY/VAX  processing  presented  in  Section  2.  For  the  sake  of  brevity  and 
legibility,  the  following  conventions  have  been  adopted  in  the  log: 

(1)  All  user  input  is  underlined  to  distinguish  it  from  computer 
responses . 

(2)  On  some  occasions,  actual  user  input  is  not  echoed  in  the  log. 
These  blank  inputs  are  either  passwords  which  do  not  appear  on  the  screen 
during  processing  single  carriage  returns  <CR>. 

THE  EXAMPLE  MODEL: 

Three  PATRAN  renderings  of  the  example  model  are  appended  to  the  end  of 
the  computer  session  log.  The  wire  mesli  and  first  hidden  line  drawing 
represent  the  undeformed  model,  while  the  second  hidden  line  drawing  is  a 
highly  exaggerated  depiction  of  a  calculated  structural  mode. 

For  moderately  complex  models  such  as  this  one,  the  benefits  of  modal 
animation  become  clear.  Without  animation,  careful  comparison  of  the  deformed 
and  undeformed  node  locations  may  not  easily  reveal  all  of  the  modal  analysis 
information  present  in  these  plots.  However,  with  modal  animation,  the  same 
information  is  conveyed  in  a  few  seconds  rather  than  a  few  hours. 


If  double  quotes  are  shown  during  data  entry  for  program  NASPRGEX  in  the 
printout,  then  a  carriage  return  was  typed. 

neton 


If  there  are  any  problems,  notify  Brian  Ridout  at  844-1654. 
MAIL  to:  XNET2: : RIDOUT. 


icn  password;  _ 

000  2number=001995  class=U  charge=00003434  distributions 
000  You  are  now  authorized 

(gmodal 


>>  This  is  the  DCL  procedure  "MODAL".  << 

>>  "MODAL"  performs  all  data  and  model  << 

>>  translations  required  for  NASTRAN/  << 

»  PATRAN  CRAY/VAX  processing.  « 

»  APPLIED  TECHNOLOGY  ASSOCIATES  « 

>>  December , 1985  << 

What  is  the  name  of  the  NASTRAN  model  file  ?:  plate.dat 

»>  CURRENT  MODEL  IS  "PLATE.DAT"  <<< 

OPTION 


1  NASTRAN  MODEL  — >  PATRAN  MODEL 
Translate  NASTRAN  model  into  PATRAN  format. 

2  VAX  MODEL  — >  CRAY  MODEL 

Translate  model  into  machine-independent  format. 
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3  CRAY  MODEL  -— >  VAX  MODEL 

Translate  model  from  machine- independent  format 

4  CRAY  RESULTS  — ->  VAX  RESULTS 

Translate  PATRAN  result  file  to  VAX  format. 

5  SELECT  NEU  MODEL 

6  EXIT 


OPTION:  2 

RUNNING  STEXT 

XDELETE-I-FILDEL,  DUAl : (JAMES. NASTRANINMODEL. ; 1  deleted  (12  blocks) 

>>  The  model  will  now  be  put  on  mass  << 

>>  storage  as  NMODEL.  << 

XDCL-I-SUPERSEDE,  previous  value  of  SYSSINPUT  has  been  superseded 
VMS  LOGIN  PASSyORD; 

000  87/07/09  11:16:17.453  STORE  NMODEL. : /001995/NM0DEL. 

001  (115620B  BITS) 


>»  CURRENT  MODEL  IS  "PLATE. DAT"  «< 

OPTION 


1  NASTRAN  MODEL  — >  PATRAN  MODEL 
Translate  NASTRAN  model  into  PATRAN  format. 

2  VAX  MODEL  — >  CRAY  MODEL 

Translate  model  into  machine-independent  format 

3  CRAY  MODEL  -— >  VAX  MODEL 

Translate  model  from  machine-independent  format 
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A  CRAY  RESULTS  --->  VAX  RF.SIIt.TS 

Translate  PATRAN  result  file  to  VAX  fotvnat. 

5  SELECT  NEW  MODEL 

6  EXIT 


OPTION:  6 


ATA  $  mass 

VMS  LOGIN  PASSWORD: 

?  LIST 


NODE  NAME:  001995 
DESCENDANTS: 
JCLNAST 
JCLPREP 
NASTEXE 
RATSEXE 
NASTPLOT 
PLOTEXE 
PLTPREP 
NPATEXE 
NASGO 
NASGOl 
NASG02 
NASPRGEX 
NASALTR 
NASPRG 
NASPAT 
NASPATEX 
NASVAX 
NASJOBl 
NASJ0B2 
APC 
CPAT 
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TAPE999 

TAPE909 

TAPE199 

PLTX 

MHDCBE 

MHDCBl 

OUTPUT  DIR 

NASALTRS 

NASMODEL 

NASGOLD2 

NASGOLOl 

NMODEL. 

MSET.FOR 

HSET 

PLATE 

TAPE? 

DBPLATE  DIR 

TAPE6 

MPLATE 

OPIATE 

A PLATE 

?  EI^ 

ATA  $  connect 

CONNECT  Version  4.1  12/86 

USE  LOWER  CASE  FOR  CTSS 

DEFAULTS  MAY  BE  USED  FOR  USER  NUMBER  AND  CHARGE  CODE 
THE  DEFAULT  WILL  BE  THE  VALUES  IN  THE  DP 
AUTHORIZATION  FILE 

(SHOWN  BY  NETON,  WHICH  MUST  BE  RUN  BEFORE  CONNECT) 
CTSS  USER  NUMBER  (DEFAULT  -  NETON  USER  NUMBER): 

CTSS  CHARGE  CODE  (DEFAULT  -  NETON  CHARGE  CODE): 


ICN  PASSWORD: 


V  b07f  0180.420  ACTIVE  A 
NIL 
files 


6014 

rw 

logmlgy3 

5526 

rw 

logtlgy3 

2744 

re 

nasgo 

107615 

re 

nasprgex 

1011 

rw 

plate 

73 

rw 

tape? 

all  done 
cosmos  i=nasgo 


10:57:13  000:00.003  v07/09/87  AFVLCC  cosmos  2.4  ar3  001995  mic  *** 
***  nasgo  james  m  ***  page  1 


1 

*/ 

» 

THIS  IS  COSMOS  DECK  "NASGO". 

<< 

2 

*/ 

>> 

IT  IS  DESIGNED  TO  RETRIEVE  A 

<< 

3 

*/ 

» 

NASTRAN  MODEL  WHICH  HAS  BEEN 

<< 

4 

*/ 

» 

SENT  TO  CFS  FROM  THE  VAX. 

<< 

5 

*/ 

6 

*/ 

» 

APPLIED  TECHNOLOGY  ASSOCIATES 

<< 

7 

*/ 

» 

December, 1985 

<< 

8 

*/ 

9 

*/ 

10 

*/ 

» 

GET  THE  MODEL  FILE  (IN  STEXT 

FORM 

11 

*/ 

» 

FROM  MASS  STORAGE  FILE  "NMODEL." 

12 

*/ 

13 

*mass  get  nmodel. 

10:57:15  000:00,165 
000  87/07/09  10:57:46.852  get  nmodel . : /001995/nmodel . 
001  (115620b  bits)  87/07/07  09:45:42.837 
10:57:19  000:00.440  all  done 


+cosmvaO 


« 

<< 
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10)57119  000:00.442 


10:57:21  000:00.544 
10:57:21  000:00.547 


10:57:21  000:00.557 


10:57:21  000:00.565 
10:57:26  000:00.614 


10:57:26  000:00.622 
10:57:28  000:00.715 


10:57:28  000:00.721 
10:57:32  000:00,807 


10:57:32  000:00.813 
000  87/07/09  10:58:03 
001  (76400b  bits) 
10:57:37  000:01.086 
10:57:37  000:01.088 
10:57:38  000:01.140 


14  *fil«3  nmod«l. 
error  in  input  line. 

all  done 

15  *if  lastmsg  .has.  "none"  tlien  go  to  nomodel 

16  */ 

17  */  >>  ASK  USER  FOR  THE  MODEL  NAME  « 

18  */ 

19  *let  query=\l£\_"Uhat  is  the  NASTRAN  model  name?  [up 
to  six  characters)" 
plate 


20  *let  i=getmsg(\query\ ) 

21  *let  modnameimsg 

22  */ 

23  */  »  TRANSLATE  THE  MODEL  INTO  CRAY  ASCII  << 

24  */  »  FORMAT  AND  CONVERT  TO  LOWER  CASE.  << 

25  */ 

26  *ntext  nmodel.  ascmodel 

all  done 

27  */ 

28  */  »  CONVERT  THE  NASTRAN  DECK  TO  LOWER  CASE  << 

29  */ 

30  *trans  i  =  (ascniodel,cray )  ,o*(\modnanie\ , cray) ,  Ic 

all  done 

31  */ 

32  */  »ST0RE  THE  MODEL  UNDER  CFS.  « 

33  */ 

34  *mass  store  \modname\ 

949  store  plate: /001995/plate 

all  done 

35  *destroy  nmodel.  ascmodel 

all  done 

36  */ 

37  */  - 

38  */  »  "NASGO"  IS  FINISHED.  < 
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39  */  >>  THE  NASTRAN  MODEL  IS  UfiPER  CFS  ■:< 

10:57:38  000:01.148  v07/09/87  AFULCC  cosmos  2.4  ar3  001995  mic  ***  -cosnivaO 
nasgo  James  m  ***  page  2 

40  */  »  STORAGE  AND  IN  LOCAL  FILE  SPACE.  << 

41  */  »  READY  TO  RUN  "NASGOl"!  << 

42  */  - 

43  */ 

10:57:39  000:01.198  44  *go  to  endl 

10:57:39  000:01.205  57  *endl: 

58  */  >>  THIS  IS  COSMOS  DECK  "NASGOl".  << 

59  */  >>  IT  IS  DESIGNED  TO  EXECUTE  THE  FIRST  « 

60  */  >>  PHASE  OF  NASTRAN/ PATRAN  VAX/CRAY  « 

61  */  >>  MODAL  ANALYSIS.  "NASGOl"  WRITES  « 

62  */  >>  AND  SUBMITS  A  NASTRAN  JOB.  << 

63  */ 

64  */  »  APPLIED  TECHNOLOGY  ASSOCIATES  << 

65  */  >>  November,  1985  << 

66  */ 

67  */ 

10:57:40  000:01.261  68  *select  messages=shor t 

10:57:40  000:01.265  69  *let  iero="no" 

70  */ 

71  */  >>  SEARCH  FOR  THE  NASPROG  EXECUTABLE  << 

72  */ 

10:57:40  000:01.273  73  *let  erroi'£ile="naspigex" 

10:57:40  000:01.279  74  *files  nasprgex 

none 

10:57:42  000:01.391  all  done 

10:57:42  000:01.393  75  *if  lastmsg  .has.  "none"  then  mass  get  nasprgex 

000  87/07/09  10:58:13.217  get  nasprgex/root : /001995/naspcgex 

001  (10761500b  bits)  87/06/11  11:23:26.993 

10:57:47  000:01.673  all  done 

10:57:47  000:01.676  76  *£iles  nasprge.x 

107615  re  nasprgex 
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all  done 


10:57:49  000:01.780 
10:57:49  000:01.782 


10:57:49  000:01.791 
10:57:49  000:01.795 


77  *if  lastmsg  .has.  "none"  then  go  to  mi 

78  */ 

79  */  »  RUN  NASPROG  « 

80  */ 

81  *select  extralines=t ty 

82  *nasprgex 


No  tape7  found . . . 


INDEX  DESCRIPTIONCURRENT  VALUE 

10:58:02  000:02.689  v07/09/87  AFWLCC  cosmos  2.4  ar3  001995  mic 

nasj'o  James  m  ***  page  3 


1  Memory  Coresize  (  6  digits  )  300000 

2  User  ID  number  {  6  digits  )  000000 

3  Alter  Library  Name  nasaltr 

4  Printer  Device  0 

5  Checkpoint  Restart  Name  0 

6  Database  Restart  Name  0 

7  NASTRAN  deck  name 

8  Execution  Time  Limit  {minutes)  10 

9  Job  Priority  (  1.00  to  1.99  )  1.00 

10  Alter  Deck  Name  0 

11  Class  {  a,  b,  or  c  )  a 

12  MSET  run?  {0=No,  l=Yes]  0 


*★**  Option?  Type  "help"  for  help 

7 

‘  "set" 

>  Memory  Coresize  {  6  digits  )  CURRENTLY  =  300000 


ss ingf i  le 


***  <-cosmva0  *** 


<CR>  to  keep 
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7 

*  ’’lOOOOQ” 

>  Uset  ID  number  {  6  digits  } 

7 

+  ”001995” 

>  Alter  Library  Name 

7 


CURRENTLY  =  OOUOOO 


<CR>  to  ke'  p 


CURRENTLY  =  nasal tr 


<CR>  to  keop 


>  Printer  Device 

7 


>  Checkpoint  Restart  Name 

7 


>  Database  Restart  Name 

7 


CURRENTLY  =  0 


CURRENTLY  =  0 


CURRENTLY  =  0 


<CR>  to  keep 


<CR>  to  keep 


<CR>  to  keep 


>  NASTRAN  deck  name 

7 

*  "plate" 

>  Execution  Time  Limit  {minutes} 

7 

*  "2" 

>  Job  Priority  {  1.00  to  1.99  ) 

7 


CURRENTLY  = 


CURRENTLY  =  10 


CURRENTLY  =  1.00 


<CR>  to  keep 


<CR>  to  keep 


<CR>  to  keep 


>  Alter  Deck  Name 


I 


7 


CURRENTLY  =  0 


<CR>  to  keep 


4.  "" 

>  Class  {  a,  b,  or  c  }  CURRENTLY  =  a 

7 


<CR>  to  keep 


II 


>  MSET  run?  (0=No,  l=Yes)  CURRENTLY  =  0  <CR>  to  ke-p 

7 

*  "1” 


38 


11:01:07  000:07.153  v07/09/87  AFULCC  cosmos  2.4  ar3  001995  mic  ***  *cosmva0 
nasgo  James  m  ***  page  4 

INDEX  DESCRIPTION  CURRENT  VALUE 


1  Memory  Coresize  {  6  digits  }  100000 

2  User  ID  number  {  6  digits  )  001995 

3  Alter  Library  Name  nasaltr 

4  Printer  Device  0 

5  Checkpoint  Restart  Name  0 

6  Database  Restart  Name  0 

7  NASTRAN  deck  name  plate 

8  Execution  Time  Limit  (minutes)  2 

9  Job  Priority  {  1.00  to  1.99  )  1.00 

10  Alter  Deck  Name  0 

11  Class  (  a,  b,  or  c  }  a 

12  MSET  run?  (0=No,  l=Yes)  1 


****  Option?  Type  "help"  for  help 

? 

*■  "stop" 

>>>>>  TAPE?  has  been  created 
stop 

nasprgex  ctss  time  2.116  seconds 
cpu=  .061  i/o=  9.425  memory  time=  .183 

11:01:37  000:08.809  all  done 

11:01:37  000:08.812  83  *select  extralines=none 

84  */ 

85  */ 

86  */  »  DETERMINE  WHETHER  THIS  IS  A  RATS  RUN  << 

87  */ 


39 


11:01:37  000:08.821 


88  *files  tapeS 


none 

000:'.'8.937  all  doiu- 

11:01:39  000:08.939  89  *i£  lastnisg  .has.  "none"  then  go  to  notmal 

11:01:39  000:08.954  112  *noi-mal: 

113  */ 

.  • 

114  */  »  THIS  IS  A  NORMAL :NASTRAN  RUN  « 

115  */  *  .*  ■ 

11:01:39  000:08.959  116  *let  input7="tape7". 

117  */ 

118  */  »  READ  IN  THE  PROCESSING  PARAMETERS  FROM  « 

119  */  »  THE  TAPE7  FILE  GENERATED  BY  MSPROGE.  « 

120  */ 

11:01:39  000:08.970  121  *qed  \input7\\lf\ll\lf \end 

12  lines,  (a)  tape7 

100000  Memory  Coresize  {  6  digits  } 

11:01:42  000:09.131  all  done 

11:01:42  000:09.134  122  *if  lastmsg  .has.  "abort"  then  go  to  aborted 

11:01:42  000:09.140  123  *let  temp=rplcc(lastmsg, "  "> 

11:01:42  000:09.148  124  *let  coresize=getsym( temp , 1 ) 

11:01:42  000:09.154  125  *qed  \input7\\lf\21\lf\end 

11:01:43  000:09.214  v07/09/87  AFWLCC  cosmos  2.4  ar3  001995  mic  ***  ^cosmvaO 
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12  lines,  (a)  tape7 

001995  User  ID  number  (  6  digits  } 

11:01:45  000:09.319  all  done 

11:01:45  000:09.322  126  *let  temp=rplcc( las tmsg , "  ") 

11:01:45  000:09.329  127  *let  userid=getsym( temp. 1 ) 

11:01:45  000:09.336  128  *qed  \input7\\lf\31\l£\end 

12  lines,  (a)  tape7 
nasaltr  Alter  Library  Name 

all  done 

129  -^let  temp=rplcc(lastmsg, "  ") 

130  -^let  alterlibrary=getsym(  temp,  1) 


11:01:48  000:09.497 
11:01:48  000:09.499 
11:01:48  000:09.507 
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11:01:48  000:09.513 


11:01:51  000:09.675 
11:01:51  000:09.677 
11:01:51  000:09.685 
11:01:51  000:09.691 

printerlist  =  ''  " 

11:01:51  000:09.698 

11:01:53  000:09.860 
11:01:53  000:09.862 
11:01:53  000:09.870 
11:01:53  000:09.875 
11:01:54  000:09.881 
11:01:54  000:09.887 
11:01:54  000:09.894 

11:01:54  000:09.901 


11:01:57  000:10.063 
11:01:57  000:10.065 
11:01:57  000:10.073 
11:01:57  000:10.079 

11:01:57  000:10.086 
11:01:57  000:10.088 
11:01:57  000:10.095 
11:01:57  000:10.104 


11:02:00  000:10.266 
11:02:00  000:10.269 
11:02:00  000:10.276 


131  *ned  \  in|nit7\\lf\41\ !  .''\eiui 

12  lines,  (a)  tape’ 

0  P  L'  i  n  t  e  i‘  De  i  c  e 

all  done 

132  *let  temp=rplcc( las tmsg , "  ") 

133  *let  printerlist=getsyni(  temp,  1) 

134  *if  printerlist  .eq.  ''printer"  then  let 

135  *qed  \input7\\lf\51\lf \end 

12  lines,  (a)  tape7 
0  Checkpoint  Restart  Name 

all  done 

136  *let  temp. rplcc( las tmsg , "  ") 

137  *let  ckpt="no" 

138  *let  rstdb="no" 

139  *let  templ=getsym( temp, 1 ) 

140  *if  tempi  .ne.  "0"  then  let  ckpt="yes" 

141  *if  ckpt  .eq.  "yes"  then  go  to  skip 

142  */ 

143  *qed  \input7\\lf\61\lf\end 

12  lines,  (a)  tape7 
0  Database  Restart  Name 

all  done 

144  *let  temp=rplcc(lastmsg,"  ") 

145  *let  templ=getsym( temp, 1) 

146  *if  tempi  .ne.  "0"  then  let  rstdb="yes" 

147  */ 

148  *skip: 

149  *let  restartid=getsym( tempi , 1 ) 

150  *if  tempi  .eq.  "0"  then  let  restartid."  " 

151  *qed  \input7\\lf\71\l£\end 

12  lines,  (a)  tape7 
plate  NASTRAN  deck  name 

all  done 

152  *let  temp=rplcc(lastmsg,"  ") 

153  *let  nasdeck=getsym( temp, 1 ) 


41 


11:02:00  000:10.283 


154  *qed  \  inpu  t/Wlf \81\1  f  Vend 
12  lines,  (a)  tape7 

2  Execution  Time  Limit  I  minutes’! 

11:02:02  000:10.445  all  done 

11:02:02  000:10.447  155  *let  temp=L-plcc(lastnisg, "  ") 


11:02:02  000:10.455  v07/09/87  AFWLCC  cosmos  2.4  ar3  001995  mic  ***  ♦cosinvaO 
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11; 

:02; 

;02 

000: 

10. 

.459 

156 

11; 

:02; 

:02 

000: 

;10. 

.465 

157 

11 

02 

05 

000 

10, 

,628 

11 

02 

05 

000 

10. 

,630 

158 

11 

02 

05 

000 

10. 

,638 

159 

11 

02 

05 

000 

10. 

.645 

160 

11 

o 

ro 

07 

000 

10. 

,806 

11 

02 

07 

000 

10. 

,809 

161 

11 

02 

07 

000 

10, 

,817 

162 

11 

02 

07 

000 

10. 

.823 

163 

11 

02 

07 

000 

10. 

.829 

164 

11 

02 

07 

000 

10. 

,836 

165 

11 

02: 

10 

000 

10.998 

11 

02 

10 

000 

;11.001 

166 

11 

02 

10 

000 

11.009 

167 

11 

02 

10 

000 

;11.016 

168 

11 

;02 

13 

000 

11. 

,178 

11 

;02 

13 

000 

11, 

,180 

169 

11 

:02 

13 

000 

11. 

,188 

170 

*let  ma:<time=getsym(  temp ,  1 ) 

*qed  \input7\\lf\91\lf\end 
12  lines,  (a)  tape7 

1.00  Job  Priority  {  1.00  to  1.99  } 

all  done 

*let  temp=rplcc(lastmsg, "  ") 

*let  xpr iori ty=getsym( temp , 1 ) 

*qed  \input7\\lf\101\lf\end 
12  lines,  (a)  tape7 
0  Alter  Deck  Name 

all  done 

*let  temp=rplcc(lastmsg, "  ") 

*let  alt id=getsym( temp, 1 ) 

*let  altr="no" 

*if  altid  .ne.  "0"  then  let  altr="yes" 

*qed  \input7\\lf\lll\lf\end 
12  lines,  (a)  tape? 

a  Class  {  a,  b,  or  c  } 

all  done 

*let  temp=rplcc(lastmsg, "  ") 

*let  xclass=getsym( temp, 1 ) 

*qed  \inpnt7\\l£\121\lE\end 
12  lines,  (a)  tape? 

1  MSET  run?  {0=No,  l=Yes) 

all  done 

*let  temp=rplcc(lastmsg, "  ") 

*let  mlset=getsym( temp, 1) 


1 


*** 


11:02! 13  000:11.194  171  *let  mmset-"no" 

11:02:13  000:11.200  172  *if  mlset  .ne.  "0"  then  let  mmset="yes" 

173  */ 

174  */  »  IF  "NASJOBl"  IS  NOT  IN  LOCAL  SPACE,  << 

175  */  »  LOOK  FOR  IT  UNDER  MASS  STORAGE.  << 

176  */ 

11:02:13  000:11.214  177  *let  errorfile*"nasjobl" 

11:02:13  000:11.220  178  *let  jclempty="nasjobl" 

11:02:13  000:11.227  179  *files  \jclempty\ 

none 

11:02:15  000:11.339  all  done 

11:02:15  000:11.341  180  *if  lastmsg  .has.  "none"  then  mass  get  \jclempty\ 

000  87/07/09  11:02:46.518  get 

nasjobl : /001995/nasjobl 

001  (246300b  bits)  87/07/09  08:47:47.822 
11:02:19  000:11.621  all  done 

11:02:19  000:11.624  181  *files  \jclemptyV 

2463  re  nasjobl 

11:02:21  000:11.728  all  done 

11:02:21  000:11.730  182  *if  lastmsg  .has.  "none"  then  go  to  missingfile 

183  */ 

184  */  »  SET  UP  PARAMETERS  FOR  USE  IN  "NASJOBl"  << 

185  */ 

11:02:21  000:11.741  186  *let  printerlist=' " '  \pi‘interlist\ 

11:02:21  000:11.751  187  *let  userid='"'  \userid\ 

11:02:21  000:11.761  v07/09/87  AFWLCC  cosmos  2.4  ar3  001995  mic  ***  +cosmvaO  *** 
nasgo  James  m  ***  page  7 

11:02:21  000:11.765  188  *let  coresize='"'  \coLesize\_' " ' 

11:02:21  000:11.775  189  *let  copyinput="no" 

11:02:21  000:11.781  190  *let  jobname=" j"_\nasdeck\ 

11:02:21  000:11.790  191  *let  mset=' " '_\mmset\ 

192  */ 

193  */  »IF  NASTRAN  DECK  IS  NOT  IN  LOCAL  FILE  SPACE. « 

194  */  »  LOOK  FOR  IT  UNDER  MASS  STORAGE.  « 


195 


11; 

:02! 

:22 

000: 

11 

.847 

196 

11 

:02i 

;  22 

000: 

;11 

.853 

197 

11 

02 

24 

000 

11 

.961 

11 

02 

24 

000 

11 

.964 

198 

11 

02 

24 

000 

11 

.971 

199 

11: 

:02; 

;26 

000: 

;12 

.075 

11 

:02; 

;26 

000: 

;12 

.077 

200 

201 

11; 

:02: 

;26 

000: 

;12 

.085 

202 

11; 

:02: 

:26 

000: 

;12 

.101 

219 

220 

221 

222 

223 

11:02:26  000:12.107  224 


11:02:28  000:12.211 

225 

226 
111 
228 


11; 

;02; 

;28 

000: 

12. 

.219 

229 

11 

02 

31 

000 

12, 

.401 

11 

02 

31 

000 

12, 

.404 

230 

11 

02 

31 

000 

12, 

.412 

231 

11 

02 

31 

000 

12, 

.419 

232 

233 

11 

:02; 

:31 

000; 

;12 

.427 

234 

Zm: 

iss: 

Lng 

end 

will 

supply 

*/ 

*let  error£ile=\uasdeck\ 

*files  \nasdeck\ 

764  rw  plate 
all  done 

*if  lastmsg  .has.  "none"  then  mass  get  \nasdeck.\ 
♦files  \nasdeck\ 

764  rv  plate 
all  done 

*if  lastmsg  .has.  "none"  then  go  to  missingfile 
*/ 

♦if  \ckpt\  .ne.  "yes"  then  go  to  shipit 
♦shipit : 

*/ 

♦/  »  DESTROY  ANY  OLD  VERSIONS  OF  THE  JOB  C0NTR0L« 

*/  »  FILE  FOR  THIS  NASTRAN  DECK.  « 

♦/ 

♦destroy  \jobname\ 
not  found: 
jplate 
all  done 
*/ 

*/  »  DETERMINE  WHETHER  THE  NASTRAN  DECK  BEGINS  << 
*/  »  WITH  A  "*DECK"  CARD.  IF  NOT,  INSERT  ONE.  << 
*/ 

♦qed  \nasdeck\\lf\ll\lf\end 
157  lines,  (a)  plate 
id  weight, test 
all  done 

♦let  temp=rplcc(lastmsg, "  ") 

♦let  firstwordagetsym( temp, 1) 

♦if  firstword  .eq.  "*deck"  then  go  to  skip2 
*/ 

♦trixgl  o(\nasdeck\ )\l£\bll\l £\*deck 

\nasdeck\\lf\ . \end 

one. 


44 


157  lines  (  80s) 


^JtL'ying  to  end  controllee  end 
11:02:34  000:12.718  all  done 

235  */ 

11:02:34  000:12.722  236  *skip2: 

11:02:34  000:12.723  237  *select  inessages=shor t 

238  */ 

239  */  »  DETERMINE  WHETHER  ALTER  LINES  EXIST  << 


11:02:34  000:12.731  v07/09/87  AFWLCC  cosmos  2.4  ar3  001995  mic  ***  +cosmva0  *** 
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11:02:35  000:12.779 

11:02:35  000:12.838 


11:02:35  000:12.845 

11:02:33  000:13.027 
11:02:38  000:13.030 


240  */  »  OR  ARE  NEEDED  FOR  THIS  RUN.  « 

241  */  »(IS  THIS  A  CHECKPOINT  OR  ALTER  LIBRARY  RUN?)« 

242  */ 

243  *  if  (ckpt  .ne.  "yes")  .and.  (altr  .ne.  "yes")  then 
go  to  noalters 

353  *noalters: 

354  */ 

355  */  »  MERGE  THE  NASTRAN  DECK  INTO  THE  « 

356  */  »  JOB  CONTROL  FILE  (NASJOBl).  « 

357  */ 

358  *tri,xgl  \lf \mf  (\nasdeck\  \  jclemptyX  ,  \  jobnameX ) 
ok.  jplate  merged 

all  done 

359  *trixgl  o(\jobname\)\lf\fp\l£\*select\lf\lJJ 
589  lines  (  80s) 

176  *select  message=mediiim,savef iles=none 


360  tpl , ]\lf\*let  coresize=\lf\rl^ 
182  *let  coresi2e="300000" 


361  tpl , J\lf\*let  userid=\lf\rlX 
184  *let  userid="000000" 


45 


11;02:A9  000:13.938 


362  tpl ,  printerlist=\lf\i-l% 

183  *let  printerlist="mfaco" 

all  clone 

363  */ 

364  */  »  DESTROY  THE  MODIFIED  NASTRAN  DECK  « 

365  */  »  IF  IT  WAS  CREATED,  AND  RESTORE  THE  << 

366  */  »  ORIGINAL  UNALTERED  COPY.  << 

367  */ 

11:04:05  000:13.988  368  *i£  \copyinput\  .eq.  "no"  then  go  to  noextrainput 

11:04:05  000:13.998  372  *noextrainput : 

373  */ 

11:04:05  000:14.001  374  *if  \ckpt\  .eq.  "no"  then  go  to  dbrcheck 

11:04:06  000:14.054  382  *dbrcheck: 

11:04:06  000:14.056  383  *if  \rstdb\  .eq.  "no"  then  go  to  endjclprp 

11:04:06  000:14.083  427  *endjclprp: 

428  */ 

429  */  »  IF  NO  ERRORS  HAVE  BEEN  ENCOUNTERED,  « 

430  */  »  SUBMIT  THE  JOB.  « 

431  */ 

11:04:06  000:14.089  432  *mass  store  tape7 

000  87/07/09  11:04:37.649  store  tape7 : /001995/ tape7 
001  (7300b  bits) 

11:04:11  000:14.400  all  done 

11:04:11  000:14.402  433  *destroy  alwith.  ZZX  Z 

11:04:12  000:14.454  all  done 

11:04:12  000:14.456  434  *if  \iero\  .eq.  "yes"  then  go  to  flagerror 

435  */ 

11:04:12  000:14.466  436  ^submit 

i=\ jobnameS ,  t=\nia;-;time\ ,  p=\xpriori  ty\ ,class=\xclass\  end 

jplate  vas  submitted. 

11:04:16  000:14.669  v07/09/87  AFWLCC  cosmos  2.4  ar3  001995  mic  ***  +cosmvaO  *** 
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11:04:16  000:14.672  all  done 

46 


t 


11:04:17  000:14.722 
11:04:17  000:14.727 
11:04:17  000:14.728 


11:04:19  000:14.835 
11:04:19  000:14.837 
11:04:19  000:14.838 


437  */ 

438  */  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 

439  */  »  THE  JOB  HAS  BEEN  SUBMITTED  << 

440  */  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 

441  */ 

442  *go  to  theend 

450  *tlieend: 

451  *destroy  taped  \jobnanie\  nasjobl  ratsexe  data 
not  found; 

tapes  ratsexe  data 
all  done 

452  *aborted: 

>  end  cosmos  run  ********** 


all  done 
files 

6014  rw  logmlgy3 
2744  re  nasgo 
107615  re  nasprgex 
1011  rw  plate 
73  rw  tape7 


all  done 
status  j=jplate 


division  ar 3/a ta( 999917, 999918, 999919, 999920, 999922, 999923) 


job 

user 

date 

time  state 

r 

limi  t 

d  tid 

c 

pri 

j  plate 

001995 

07/09 

08:43:21  ran 

3 

.72 

00 

a 

1.00 

j  plate 

001995 

07/09 

11:13:23  ran 

3 

.77 

00 

a 

1.00 

all  done 
files 

6014  rw  logmlgy3 
5526  rw  logtlgy3 
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2744  re 
107615  re 
1011  rv 
73  rw 


nasgo 

nasprgex 

plate 

tape7 


all  done 
mass  list 


node  name;  001995 
descendants: 
jclnast 
jclprep 
nastexe 
ratsexe 
nastplot 
plotexe 
pltprep 
npatexe 
nasgo 
nasgol 
nasgo2 
nasprgex 
nasaltr 
nasprg 
naspat 
naspatex 
nasvax 
nasjobl 
nasjob2 
ape 
epat 
tape999 
tape909 
tapel99 
pi  tx 
mhdebe 
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mhdcbl 

output  dir 

nasal t is 

nasmodel 

nasgold2 

nasgoldl 

nmodel . 

mset . for 

mset 

plate 

tape? 

dbplate  dir 

tape6 

mplate 

opiate 

aplate 

all  done 
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Demo  Model 


Wire  Mesh  Model 


Hidden  Line  Model 


Figure  3.  PATRAN  Renderings  of  Example  Model 


ACRONYMS 


CFS 

COSMOS 

CTSS 

DMAP 

GATEWAY 

NASALTR 

NASGO 
NASG02 
NAS JOB  1 
NASJOB2 
NASPAT 

NASPRGEX 

NASTRAN 

MODAL.COM 

MODAL. FOR 

PATRAN 


Common  File  System  -  file  stor.nge  foi'  tlie  CRAY  (nn  ICM 
machine) 

CRAY  procedure  language 
CRAY  operating  system 

Direct  Matrix  Abstraction  Program  -  Program  used  to  alter 
NASTRAN  execution  (usually  for  modified  output) 

Program  and  network  to  transfer  models  and  output  from  VAX  to 
CRAY  and  CRAY  to  VAX 

File  containing  DMAP  statements  for  various  outputs  from 
NASTRAN 

Procedure  program  to  set  up  and  submit  NASTRAN  job 
Procedure  program  to  submit  NASPAT  job 
Input  procedure  modified  by  NASGO  to  execute  NASTRAN 
Input  procedure  modified  by  NASG02  to  execute  NASPAT 
Translation  program  to  convert  NASTRAN  results  to  PATRAN 
forma  t 

Program  to  add  user  parameters  to  NASTRAN  input 
Multi-purpose  finite  element  analysis  program 
Procedure  program  to  convert  models  and  results  to  appropriate 
format 

Program  to  convert  PATRAN  ASCII  results  file  into  PATRAN 

binary  results  file 

Pre-  and  post-processor  for  NASTRAN 


FILE  TRANSFER  AMD  PATRAN  EXECUTION  ON  THE  SILIC  GRAPHICS 

The  files  shown  as  output  from  NASTRAN  on  the  CRAi  iNASFTTAT)  and  the 
MASTRaN  source  file  need  to  be  transferred  to  the  Silicor  Grannies,  from  the 
VAX.  The  files  must  not  be  in  STEXT  or  binary  format.  NA.'.^’TDAT  is  in  STE.XT 
format  once  it  has  been  retrieved  from  mass  storage  to  tie  VAX.  NTE.XT  the 
file  and  call  it  some  filename  you  can  remember  for  transfer  to  the  Silicon 
Graphics.  If  the  source  deck  for  NASTRAN  is  on  the  VAX  in  ASCII  format  (non¬ 
binary  and  non-STEXT)  then  it  is  also  ready  for  transfer  to  t!ie  Silicon 
Graphics.  If  the  file  is  only  resident  on  the  CRAT,  then  it  must  be  put  in 
STEXT  format  on  the  CRAY,  stored  in  mass  storage,  retrie'ed  on  the  VAX.  and 
put  in  NTEXT  format  on  the  VAX  prior  to  transfer  to  the  Silicon  Graphics. 

The  following  writeups  are  examples  of  how  to  retrieve  files  and  transfer 
them  to  the  Silicon  Grapliics.  The  discussion  of  how  to  run  PATRAN  on  the 
Silicon  Graphics  is  not  covered  here.  Executing  PATRAN  is  covered  in  the 
"PATRAiN  User's  Guide". 


To  transfer  files  from  the  VAX  to  the  Silicon  Graphics: 

Vhile  on  the  Silicon  Graphics: 

Type:  connect 

Log  in  on  the  VAX 

Type:  write  sysSoutput  "“>: filename-on-iris" 

Tlie  following  two  lines  of  commands  will  not  be  echoed  to  the  screen! 
Type:  f ilename-on-VAX 
Type:  write  sysSoutput 
Logoff  the  VAX. 

Type:  '. 

This  will  transfer  the  file  from  the  VAX  to  the  IRI:;.  Once  there  the 
file  is  ready  for  additional  processing.  This  processing  is  performed  with 
either  NASPAT  (for  the  source  deck)  or  MODAL  (for  the  results  file). 

To  translate  a  source  file  to  PATRAN  format: 

Type:  NASPAT 

Follow  the  prompts  to  translate  a  source  deck  into  P.ATRAN  format. 

To  translate  a  results  file  to  P.ATRAN  format: 

Type:  MODAL 

Follow  the  prompts  to  translate  the  results  file  into  the  separate 
animation  files  in  PATRAN  format. 
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APPENDIX 


Modal  Strain  Energy  Tabulation 
(MSET) 


1.  Introduction 

The  modal  strain  energy  method  was  developed  for  design  analysis  of  viscoelas¬ 
tic  damping  treatments  (Refs.  A-1,  A-2,  A-3).  Using  this  method,  the  designer 
seeks  to  maximize  the  modal  strain  energy  in  the  viscoelastic  treatment  as  a  frac¬ 
tion  of  the  total  strain  energy.  While  this  information  has  been  avsdlable  from 
MSC/NASTRAN  for  many  years  in  printed  form,  the  form  is  not  convenient.  In 
addition  to  the  total  viscoelastic  strain  energy  fraction,  designers  typically  want 
to  stun  strain  energies  in  several  separate  regions  where  damping  may  be  applied. 
These  calculations  are  typically  required  for  several  normal  modes. 

In  response  to  this  need,  a  program  called  MSET  (“Modal  Strain  Energy 
Tabulation")  was  written  (Ref.  A-4).  While  the  program  is  intended  primarily  for 
damping  design,  it  is  also  useful  in  other  normal  modes  analyses  for  evaluating  mode 
shapes.  MSET  runs  as  a  post  processing  step  after  a  NASTRAN  Solution  63  anal¬ 
ysis.  The  user  specifies  groups  of  elements,  such  as  viscoelastic  areas,  constraining 
layers,  etc.  Modal  strain  energies  for  all  modes,  or  selected  modes,  are  then  broken 
down  into  the  specified  groups  and  displayed  in  tabular  form.  As  an  alternative, 
users  may  also  display  kinetic  energy  fractions  organized  by  groups  of  node  points  to 
further  aid  in  evaluating  mode  shapes.  The  code  operates  by  reading  xiser  commands 
either  interactively  or  in  batch  mode  and  producing  a  tabulated  listixxg  as  a  result. 
After  the  NASTRAN  run  has  been  completed,  MSET  may  be  run  repeatedly  with 
different  user  input. 
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MSET  requires  a  DMAP  alter,  which  is  inserted  into  the  NASTRAN  Solution 
63  normal  modes  run.  This  alter  causes  NASTRAN  to  write  binary  files  containing 
modal  strain  energies  and  other  information.  MSET  reads  these  files  and  accepts 
commands  either  interactively  or  from  a  batch  mode  command  file,  which  cause  it 
to  output  tabulated  data  on  another  file. 


2.  Executing  MSET 

MSET  was  originally  written  for  VAX  computers,  with  NASTRAN  and  MSET  both 
running  on  the  same  machine.  At  the  Air  Force  Weapons  Laboratory  (AFWL), 
NASTRAN  runs  on  the  Cray.  It  might  have  been  possible  to  install  MSET  on  the 
Cray  for  interactive  execution  on  that  machine.  However,  it  was  felt  that  interactive 
execution  on  a  VAX  wovild  be  more  convenient,  especially  when  graphic  displays 
are  produced.  This  choice  also  made  it  unnecessary  to  convert  all  of  MSET  from 
VAX  to  Cray  Fortran.  Furthermore,  the  focus  of  the  present  contract  was  on  finding 
better  ways  for  NASTRAN  users  to  use  the  VAX  and  Cray  computers  cooperatively, 
and  to  transfer  data  between  them. 

MSET  as  originally  written  iised  binary  files  written  by  NASTRAN  in  its 
OUTPUT2  and  OUTPUT4  formats.  Riinning  MSET  entirely  on  the  AR  VAX 
woxild  require  transmission  of  the  binary  files  written  by  NASTRAN  from  the  Cray 
to  the  VAX.  One  aspect  of  this  project  was  to  investigate  transmission  of  binary 
files  between  the  Cray  and  the  VAX,  as  documented  in  Reference  A-5.  Although  the 
NOSTRADAMUS  code  (which  is  intended  to  transmit  binary  files)  was  obtained, 
this  approach  was  not  followed.  Th\is  it  was  necessary  to  write  a  small  Fortran  code, 
using  parts  of  MSET,  and  install  it  on  the  Cray.  This  code  simply  reads  the  binary 
files  created  by  NASTRAN  and  writes  the  data  to  an  ASCII  file  which  is  transferred 
to  the  VAX  lising  the  normal  STEXT/mass-store/mass-get/NTEXT  sequence  dis- 
ciissed  in  Reference  A-5.  This  post  processing  step  is  scheduled  in  the  same  batch 
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run  with  NASTRAN,  provided  the  user  requests  MSET  processing  when  setting  up 
the  run  using  NASGO. 

After  the  run  has  been  completed  successfully,  the  user  can  return  to  the  VAX 
and  retrieve  the  ASCII  file  and  nin  MSET  either  interactively  or  in  batch  mode. 

3.  Using  MSET  on  the  VAX 

MSET  runs  on  VAX  computers  and  is  normally  invoked  by  the  DCL  command 
“MSET.”  This  symbol  mtist  be  defined  either  in  a  user’s  LOGIN.COM  file  or  in  the 
system-wide  login  file.  MSET  may  be  run  either  interactively  or  in  batch  mode. 
In  interactive  mode,  commands  are  t3^ed  directly  at  the  terminal.  In  batch  mode, 
commands  are  inserted  in  an  indirect  command  file  which  MSET  reads.  Most  users 
prefer  batch  mode  because  they  often  want  to  repeat  the  same  set  of  commzmds  for 
different  runs  or  make  minor  changes  with  a  text  editor. 

For  interactive  mode,  the  DCL  command  is  simply 
$  MSET 

Using  batch  mode,  one  writes  commands  into  a  file  with  the  extension  .IND  and 
submits  this  file  to  MSET  by  typing 

$  KSET  filename 

where  filename  is  the  command  file  name,  without  the  .IND  extension.  An  optional 
qualifier,  queue,  is  the  name  of  the  desired  batch  queue  (default  SYSSBATCH). 

$  MSET  filename/QUE^queue 

MSEIT  operates  by  buildixxg  tables  of  strain  energies  in  which  each  row  repre¬ 
sents  a  set  of  elements  and  each  column  represents  a  particular  normal  mode.  As  an 
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option,  MSET  will  sort  elements  in  order  of  decreasing  strain  energy  and  print  an¬ 
other  table  showing  the  first  few  elements  in  the  sorted  list  (see  SET  DENSITY  JTUMBER 
below).  If  kinetic  energies  are  calculated,  MSET  will  also  sort  grid  points  in  order 
of  decreasing  kinetic  energy  and  display  the  first  few  grids  in  this  table  (see  SET 
KE).  Tables  are  built  internally  and  are  then  written  to  a  file  which  can  be  printed 
or  displayed. 

MSET  commands  should  be  given  in  the  following  sequence: 

1.  The  NASFILE  command,  to  get  MSET  to  read  data  from  NASTRAN. 

2.  Optional  rnTrirrumds  to  generate  headers  for  the  table:  TITLE,  SUBTITLE, 
VEKT,  VEMG,  CLT,  CLE,  SET  string. 

3.  The  NODES  command,  to  select  a  set  of  normal  modes  for  which  strain  energies 
are  to  be  calculated. 

4.  One  or  more  SUM  commands  or  a  NASSET  command  to  select  a  set  of  elements 
to  use  in  calculating  a  single  row  of  the  table. 

5.  An  optional  LABEL  command  used  to  label  the  row  being  generated. 

6.  A  CALCULATE  command  to  cause  MSET  to  cany  out  the  calculation  for  a 
single  row,  using  elements  chosen  by  SUN  or  NASSET  commands,  and  enter  the 
row  in  the  table.  Any  number  of  rows  may  be  generated  by  entering  successive 
sets  of  SUM  or  NASSET  commands  (and  optional  LABEL  commands)  followed  by 
a  CALCULATE  command. 

7.  A  STORE  command  to  write  the  internally  generated  table  to  a  file.  After  the 
STORE  command,  a  new  table  may  be  generated  by  retxuning  to  step  1  or  step 
2. 


8.  An  EXIT  command  must  always  be  the  final  command. 
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At  any  point  between  the  NASSET  and  EXIT  commands,  various  SET  and  SHOW  com¬ 
mands  may  be  entered.  Also,  comment  lines  may  appear  at  any  point,  beginning 
with  an  exclamation  point  (!). 

As  mentioned  before,  MSET  may  also  be  used  to  tabulate  kinetic  energies.  In 
this  case,  the  procedure  is  the  same  except  that  GRID  commands  are  used  instead 
of  SUM  commands  to  select  sets  of  grid  points  instead  of  sets  of  elements,  and  the 
PUTJCE  command  is  tised  instead  of  the  CALCULATE  command  to  store  am  individual 
line  in  the  table. 

Following  are  detailed  descriptions  of  individual  MSET  commands: 

NASFILE  filename 

The  filename  is  the  complete  name  (including  extension)  of  the  ASCII  hie  that  has 
been  transferred  from  the  Cray.  MSET  looks  for  filename. OUS  and  filename.MAS. 
The  first  file  is  required.  It  contains  both  LAMA  and  an  ONRGYl  table  and  is 
written  by  NASTRAN  DMAP  alters  in  SOLution  63.  A  NASFILE  command  must 
appear  prior  to  any  other  commands.  If  a  filename.MAS  is  also  foimd  then  the 
structure’s  mass  and  center  of  gravity  will  be  calculated  and  displayed  in  the  table. 
Filename.MAS  must  exist  for  kinetic  energy  calculation. 

NASSET  filename 

filename  is  the  name  of  a  .SET  file  through  which  element  numbers  may  be  spec¬ 
ified. 


MODES  1,2, 3, 7, 8 
MODES  2  THRU  8  EXCEPT  5 
MODES  ALL 

MODES  selects  modes  for  which  strain  energies  will  be  calculated. 
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KOfODES  1.2. 3, 7, 8 
KDfODES  2  THRU  6  EXCEPT  5 
KEMODES  ALL 

KEMODES  selects  modes  for  which  kinetic  energies  will  be  calculated. 

TITLE  'string* 

string  is  a  title  for  the  table  (up  to  128  characters).  “Percent  Strain  Energies”  is 
the  default  title. 

SUBTITLE  'string* 

SUBTITLE  'string'  n 

'string*  is  a  subtitle  for  the  table  (up  to  128  characters).  If  a  number  n  follows 
string,  then  string  will  be  the  n’th  subtitle.  Otherwise,  successive  subtitles  will 
appear  in  the  output  table  in  the  order  in  which  the  SUBTITLE  commands  are  given. 

LABEL  'string' 

LABEL  'string*  n 

string  is  a  label  for  a  table  row  (up  to  32  characters).  If  a  niunber  n  follows  string, 
then  string  will  label  the  row  corresponding  to  “n.”  Otherwise,  string  will  label 
the  row  following  the  last  calculated  row. 

SUM  1000.1010.1020 

SUM  10  THRU  500  EXCEPT  100  THRU  200 

SUM  ALL  EXCEPT  50  THRU  1000.5000,5050 

SUM  HEXA 

SUM  SET  n 

SUM  HEXA  EXCEPT  1050,1060,1070 
SUM  qUAD4,BAR 
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SUM  sets  flags  in  the  element  table  to  include  or  exclude  particular  elements  in 
a  calculation.  The  SUM  SET  command  above  refers  to  set  n  within  a  N ASSET  file 
that  has  previously  been  opened  with  the  NAS  SET  command.  It  will  flag  all  elements 
within  set  n  for  incliision  within  the  next  calculation.  All  other  numbers  used  in 
the  SUM  command  are  element  numbers. 

SHOW  TABLE 
SHOW  MODE 
SHOW  TITLE 
SHOW  LABEL 
SHOW  SUM 
SHOW  GRIDS 
SHOW  KE 

SHOW  LAST.COMMAND 
SHOW  LASTJIESSAGE 
SHOW  DATE 
SHOW  TIME 

SHOW  lets  the  user  examine  the  table  and  various  states  from  within  the  program. 
SHOW  TABLE  shows  the  table  exactly  as  it  would  appear  if  sent  to  a  printer.  SHOW 
MODE  shows  the  modes  within  the  NASTRAN  file,  as  well  as  which  modes  will  be 
included  the  table  and  calculations.  SHOW  SUM  shows  which  elements  have  been 
detected  in  the  NASTPAN  file,  as  well  as  each  element’s  status  for  inclusion  in  the 
next  calculation.  SHOW  GRIDS  shows  the  grids  found  within  the  NASTRAN  file,  as 
well  as  which  grids  will  be  included  in  the  table  with  the  PUTJCE  command.  SHOW 
KE  shows  the  percent  kinetic  energies  for  the  grids  chosen  with  the  GRIDS  command. 

CALCULATE 

CALCULATE  sums  the  percent  strain  energies  for  all  flagged  elements  for  each  flagged 
mode  and  then  clears  all  the  element  flags  prior  to  the  next  calculation. 


GRIDS  1000,1010,1020 

GRIDS  100  THRU  999 

GRIDS  ALL  EXCEPT  2000  THRU  50000 

GRIDS  sets  flags  in  the  grid  table  to  include,  or  not  include,  grids  in  the  table  when 
the  PUT-KE  command  is  given.  Note,  the  setting  of  the  grid  flags  will  not  affect  the 
calculation  of  percent  kinetic  energies,  i.e.,  percent  kinetic  energies  are  calculated 
using  all  grid  points  (but  no  scalar  points).  GRIDS  has  no  effect  on  the  output  of  the 
meodmum  percent  kinetic  energies  as  designated  by  the  SET  KE  command  below. 

PUT_KE 

PUTJCE  inserts  into  the  table  a  listing  of  the  percent  kinetic  energies  of  all  grids  set 
by  the  GRIDS  command  for  all  modes  set  by  XEMODES.  The  kinetic  energies  at  each 
of  the  six  degrees  of  freedom  for  each  gridpoint  axe  displayed. 

STORE  lilanama 

f  ilenaa*  is  the  name  of  a  file  where  the  percent  str2un  energy  table  is  stored. 
DELETE  n 

n  is  the  row  number  in  the  percent  strain  energy  table  that  is  permanently  removed 
from  the  table. 

SET  PROMPT  *  string  * 

SET  DENSITYjrUMBER  n 
SET  KE  m 

string  is  a  character  string  to  be  vised  as  the  program  prompt  (up  to  eight  charac¬ 
ters).  The  number  a  controls  the  second  part  of  the  table,  in  which  strain  energies 
are  sorted  and  the  first  n  elements  are  printed.  Similarly,  m  controls  the  third  part, 


in  which  idnetic  energies  (if  any)  are  sorted,  and  the  m  points  having  maximum 
values  are  printed.  The  SET  KE  command  is  independent  of  the  GRIDS  and  PUTJCE 
commands,  i.e.,  a  particular  grid  point  may  be  printed  more  than  once  per  mode  in 
the  table  if  it  has  the  highest  absolute  kinetic  energies  in  more  than  one  degree  of 
freedom.  (m=0,  n=0,  and  strings* «*  are  the  defaults.) 


VEKT  [n]  ■  number 
VEMG  [n]  ■  number 
CLT  [n]  ■  number 
CLE  [n]  *  number 
SET  string  ■  number 

These  commands  will  report  the  value  of  the  indicated  viscoelastic  property  at  the 
top  of  the  strain  energy  table  under  the  “Mass  line,  string  is  any  property 
variable  name,  number  is  the  value  to  be  printed,  and  it  must  appear  in  standard 
“F,”  “E,”  or  “I”  format,  n  is  an  optional  subscript  value  between  1  and  5  used  to 
display  values  for  more  than  one  of  a  particular  property. 

EXIT 

EXIT  exits  the  program. 

Ofilename 

filename  is  the  name  of  an  indirect  command  file  that  may  contain  MSET 
commands.  The  file  name  must  have  the  extension  “.IND.”  Any  line  within 
filename.IND  that  starts  with  an  exclamation  point  (!)  is  considered  a  comment 
line  and  is  ignored. 
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4.  Special  Instructions  for  MSET 


The  following  special  instructions  must  be  observed  in  using  MSET  on  the  AFWL 
Cray  and  the  AR  VAX  computers: 

1.  The  MSET  option  (option  12)  must  be  chosen  when  running  NASGO. 
Reference  A>5  explains  NASGO. 

2.  SOLution  63  must  be  selected. 

3.  The  MSET  alter  for  version  63  must  be  included.  The  alter  is  available  as 
part  of  the  alter  library  used  by  NASGO,  and  instructions  on  the  use  of  alters 
may  be  found  in  Reference  A*5. 

4.  The  case  control  deck  must  include  the  line 

ESE-ALL 

The  alter  suppresses  printout  of  element  strain  energies  by  chemging  the  de¬ 
fault  value  of  PARAMjTINY  to  99  percent.  If  element  strain  energy  printout 
is  desired,  PARAM,TINY  should  be  set  back  to  a  small  value  such  as  10~^. 
See  section  3.1  of  Reference  A-6  for  more  about  PARAM,TINY. 

5.  After  the  NASTRAN  run  has  been  concluded,  the  COSMOS  control  program 
invoked  by  NASGO  will  have  stored  the  MSET  data  file  in  mass  storatge  under 
the  name  Mjob,  where  “job”  is  the  name  of  the  job  that  was  specified  to 
NASGO.  That  is,  if  the  job  name  was  PLATE,  then  MPLATE  will  be  stored. 
This  file  must  be  fetched  back  to  the  AR  VAX  using  MASS  and  converted 
using  NTEXT. 
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1 


5.  Typical  Output 

Fig\ire  1  shows  PLATE.IND,  &  typical  input  file  for  MSET.  To  run  this,  one  would 
type 


$  MSET  PUTE 

or 

$  MSET 
•PUTE 
EXIT 

Figure  2  shows  strain  energy  output  as  requested  by  the  SUM  commands.  Fig\irc  3 
shows  sorted  strain  energies,  one  row  for  each  mode.  Figure  4  shows  kinetic  energies 
sorted  by  individual  degrees  of  freedom  and  also  by  grid  point. 
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INASTRAN  plot*  aodpl 

lOppn  ond  r«od  th«  data  fllaa 
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Figure  1.  TVpicaJ  MSET  input 
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Figure  2.  Typical  MSET  strain  energy  table 
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Figure  4.  Sorted  kinetic  energy  output 
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